* lisp/vc/vc-cvs.el (vc-cvs-clone): Add 'clone' implementation

diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el
index 52cc42791fa8365843bc0348d422ccdfe77ca0b2..7d348240ba435ce9c62282b716e8edd2249e3c54 100644 (file)
--- a/lisp/vc/vc-cvs.el
+++ b/lisp/vc/vc-cvs.el
@@ -1258,6 +1258,9 @@ ignore file."
         (if sort (sort-lines nil (point-min) (point-max)))
         (save-buffer)))))
 
+(defun vc-cvs-clone (remote directory)
+  (vc-cvs-command nil 0 '() "checkout" "-d" directory remote))
+
 (defvar-keymap vc-cvs-log-view-mode-map
   "N" #'log-view-file-next
   "P" #'log-view-file-prev